<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-pragma">{-# LANGUAGE CPP #-}</span><span>
</span><span id="line-2"></span><span>
</span><span id="line-3"></span><span class="hs-comment">-- | Hack to keep Control.DeepSeq SAFE-inferred</span><span>
</span><span id="line-4"></span><span class="hs-comment">--</span><span>
</span><span id="line-5"></span><span class="hs-comment">-- This module only re-export reasonably safe entities from non-safe</span><span>
</span><span id="line-6"></span><span class="hs-comment">-- modules when there is no safe alternative</span><span class="hs-cpp">

#if MIN_VERSION_base(4,9,0) || (MIN_VERSION_base(4,6,0) &amp;&amp; !MIN_VERSION_base(4,7,0))
</span><span class="hs-pragma">{-# LANGUAGE Safe #-}</span><span>
</span><span id="line-10"></span><span>
</span><span id="line-11"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Control.DeepSeq.BackDoor</span><span>
</span><span id="line-12"></span><span>       </span><span class="hs-pragma">{-# WARNING</span><span> </span><span class="hs-pragma">&quot;This module is empty! Do not import me!&quot;</span><span> </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-13"></span><span>       </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span class="hs-cpp">

#else
</span><span class="hs-pragma">{-# LANGUAGE Trustworthy #-}</span><span>
</span><span id="line-17"></span><span>
</span><span id="line-18"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Control.DeepSeq.BackDoor</span><span>
</span><span id="line-19"></span><span>    </span><span class="hs-special">(</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">X</span><span>
</span><span id="line-20"></span><span>    </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span class="hs-cpp">

#if !(MIN_VERSION_base(4,6,0))
</span><span class="hs-comment">-- not SAFE</span><span>
</span><span id="line-24"></span><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">GHC.Exts</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">X</span><span> </span><span class="hs-special">(</span><span> </span><span class="hs-identifier">Down</span><span class="hs-special">(</span><span class="hs-identifier">Down</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span class="hs-cpp">
#endif
</span><span class="hs-cpp">
#if MIN_VERSION_base(4,10,0)
</span><span class="hs-comment">-- Data.Type.Equality SAFE starting with base-4.10</span><span class="hs-cpp">
#elif MIN_VERSION_base(4,7,0)
</span><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">Data.Type.Equality</span><span> </span><span class="hs-keyword">as</span><span> </span><span class="hs-identifier">X</span><span> </span><span class="hs-special">(</span><span> </span><span class="hs-special">(</span><span class="hs-operator">:~:</span><span class="hs-special">)</span><span> </span><span class="hs-special">)</span><span class="hs-cpp">
#endif
</span><span class="hs-cpp">
#endif
</span></pre></body></html>